home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / fido / Bundle_Spot.lha / RX-PATCHER.LHA / RX-Patcher / rx-patcher.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-06  |  437b  |  22 lines
  1. /* rx-patcher V1.0  */
  2. /* Patch den rx-Befehl so, daß er kein Ausgabefenster mehr
  3.    öffnet und legt das Ergebnis in SYS:Rexxc/RXNIL ab
  4. */
  5.  
  6. OPEN(in,"SYS:Rexxc/RX", "read")
  7. OPEN(out,"SYS:Rexxc/RXNIL", "write")
  8.  
  9. daten=READCH(in,5000)
  10. P=POS("CON:", daten)
  11. IF P>0 THEN DO
  12.   daten=LEFT(daten,p-1) || 'NIL:' || X2c('00') || SUBSTR(daten,p+5)
  13. END
  14. WRITECH(out,daten)
  15.  
  16. CLOSE(in)
  17. CLOSE(out)
  18.  
  19. Say "RX ist gepatcht, der neue Befehl heisst RXNIL!"
  20.  
  21.  
  22.